home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / SWAG / SWAGA_C / COMM.SWG / 0074_Carrier Detect.pas < prev    next >
Pascal/Delphi Source File  |  1995-02-28  |  364b  |  20 lines
  1. unit carrier;
  2. { detects carrier on modem line }
  3.  
  4. interface
  5. uses dos;
  6.  
  7. implementation
  8.  
  9. Function carrierDetected( ComPort : byte ) : Boolean;
  10. const
  11.  MSR            = 6;
  12.  BASEPORT      : Array[1..4] Of Word = ($03F8, $02F8, $03E8, $02E8);
  13.  
  14. begin
  15.    CarrierDetected := (Port[basePort[ComPort] + MSR] And 128) <> 128;
  16. {true = no carrier}
  17. end;
  18.  
  19. end.
  20.